home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / UTILITY / INITPATH.M < prev    next >
Encoding:
Text File  |  1990-06-25  |  1.1 KB  |  42 lines
  1. MODULE InitPathList;
  2.  
  3. (*
  4.  * Dieses Modul zeigt, wie Pfadlisten für 'Paths.SearchFile'
  5.  * initialisiert werden.
  6.  *)
  7.  
  8. FROM Storage IMPORT ALLOCATE;
  9.  
  10. IMPORT Lists, PathCtrl, Strings, MOSGlobals;
  11.  
  12.  
  13. VAR     paths: PathCtrl.PathList; (* diese Var. könnte exportiert werden *)
  14.  
  15.         ok, err: BOOLEAN;
  16.  
  17. PROCEDURE append (REF name: ARRAY OF CHAR);
  18.  
  19.   VAR  onePath: POINTER TO MOSGlobals.PathStr;
  20.  
  21.   BEGIN
  22.     NEW (onePath);
  23.     Strings.Assign (name, onePath^, ok);
  24.     Lists.AppendEntry (paths, onePath, err)
  25.   END append;
  26.  
  27. BEGIN
  28.   Lists.CreateList (paths, err);
  29.  
  30.   (* -- Hier können die gewünschten Pfade zugewiesen werden. -- *)
  31.   (*    Beispiele:                                              *)
  32.   append ('*\');   (* HomePath (siehe PathEnv-Modul)  *)
  33.   append ('.\');   (* der jeweils aktuelle Pfad  *)
  34.   append ('C:');   (* "C:\" (das "\" fügt SearchFile autom. an *)
  35.   append ('?');    (* Aufruf des File-Selectors (s. Module PathEnv & Paths) *)
  36.  
  37.   (*
  38.    * Nun kann SearchFile, wie im Paths-Modul beschrieben, mit 'paths'
  39.    * als Pfadliste aufgerufen werden.
  40.    *)
  41. END InitPathList.
  42.